home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 027a / calc14.zip / CALCEASY.PRG < prev    next >
Text File  |  1991-06-01  |  346b  |  26 lines
  1.  
  2. // CalcEasy.prg - simple demo of the calculator
  3.  
  4. #include "inkey.ch"
  5.  
  6. Function CalcEasy()
  7. Local n1,n2,c1,getlist:={}
  8.  
  9.    CLS
  10.  
  11.    Set Key K_ALT_O to Calculator
  12.  
  13.    n1:=5
  14.    n2:=1.23
  15.    c1:=Space(8)
  16.  
  17.    @ 3,5 Get n1
  18.    @ 4,5 Get n2
  19.    @ 5,5 Get c1
  20.  
  21.    @ 7,5 Say "Press ALT-O to access the calculator"
  22.  
  23.    READ
  24.  
  25. Return NIL
  26.